library(tidyverse)

# Read in raw survey data 
source("Scripts/read raw data.R") # this create 'survey_data.R, a selection of the raw data plus information received from Kantar

# construct measured variables from raw data
source("Scripts/Study 1 Data Manipulation.R")

# conduct analysis and plot figures for study 1
source("Scripts/Study 1 Data Analysis Empathy and Party Sympathy.R")

# To make Figure 1
source("Scripts/descriptives_dv_plot.R")

# This scripts reads in the raw data and adds measured variables
source("Scripts/Study 2 data manipulation.R")

# This script analyzes the experimental data (study 2)
source("Scripts/Study 2 Data Analysis Empathy, Censorship and Schadenfreude.R")
